home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2006 February / PCWFEB06.iso / Software / FromTheMag / PrintFile 2.1.5 / PrFile32.exe / 1033 / RCDATA / 142 < prev    next >
Encoding:
Text File  |  2001-09-08  |  3.7 KB  |  166 lines
  1. %!
  2. %%Creator: PrintFile version 2.1.4
  3. %%LanguageLevel: 2
  4. %%EndComments
  5. %%BeginProlog
  6. %
  7. % PrintFile PostScript n-up printing procedure set
  8. % Copyright 1997-2000 Peter Lerup
  9. % 
  10. % Author: Peter Lerup
  11. % Date:   00-07-27
  12.  
  13. /PrFileDict 50 dict def
  14.  
  15. PrFileDict begin
  16.  
  17. /saveCnt 0 def
  18. /gsaveCnt 0 def
  19. /currMatrix matrix currentmatrix def
  20.  
  21. /logPageNo 0 def
  22.  
  23. /min { 2 copy gt { exch } if pop } def
  24. /xdef { exch def } def
  25.  
  26. /initCS
  27. {
  28.   currMatrix setmatrix 
  29.   initclip newpath 0 0 moveto pageWidth 0 rlineto 0 pageHeight rlineto
  30.   pageWidth neg 0 rlineto closepath clip newpath
  31. } def
  32.  
  33. /__restore
  34. {
  35.   PrFileDict begin
  36.   logPageNo [ currMatrix {} forall 9 -1 roll
  37.   end
  38.   restore
  39.   PrFileDict begin
  40.   ] /currMatrix xdef
  41.   /logPageNo xdef
  42.   initCS
  43.   end
  44. } bind def
  45.  
  46. /__grestore
  47. {
  48.   grestore PrFileDict begin initCS end
  49. } bind def
  50.  
  51. /setup {
  52.   /frameWidth xdef
  53.   /drawFrame xdef
  54.   /advHor xdef
  55.   /landscape xdef
  56.   /nHeight xdef
  57.   /nWidth xdef
  58.   /ygutter xdef
  59.   /xgutter xdef
  60.   /bottomMarg xdef
  61.   /topMarg xdef
  62.   /rightMarg xdef
  63.   /leftMarg xdef
  64.  
  65.   currentpagedevice /PageSize get {} forall
  66.   /pageHeight xdef
  67.   /pageWidth xdef
  68.  
  69.   /drawWidth pageWidth leftMarg sub rightMarg sub def
  70.   /drawHeight pageHeight topMarg sub bottomMarg sub def
  71.  
  72.   landscape
  73.     { drawWidth drawHeight /drawWidth xdef /drawHeight xdef }
  74.   if 
  75.  
  76.   /logPageWidth drawWidth xgutter nWidth 1 sub mul sub nWidth div def
  77.   /logPageHeight drawHeight ygutter nHeight 1 sub mul sub nHeight div def
  78.  
  79.   /scaleFact
  80.     logPageWidth pageWidth div
  81.     logPageHeight pageHeight div
  82.     min def
  83.  
  84.   /xOffset logPageWidth scaleFact pageWidth mul sub 2 div def
  85.   /yOffset logPageHeight scaleFact pageHeight mul sub 2 div def
  86.  
  87.   systemdict /setpagedevice known
  88.     { 
  89.       <</BeginPage PrFileDict /BeginPage get 
  90.         /EndPage PrFileDict /EndPage get>> setpagedevice
  91.     }
  92.   if
  93.  
  94. } def
  95.  
  96. /BeginPage {
  97.   PrFileDict begin
  98.   pop
  99.   landscape { pageWidth 0 translate 90 rotate } if
  100.     landscape {rightMarg} {leftMarg} ifelse
  101.     logPageNo advHor {nWidth mod} {nHeight idiv} ifelse
  102.       logPageWidth xgutter add mul add
  103.     landscape {topMarg} {bottomMarg} ifelse
  104.     nHeight 1 sub logPageNo advHor {nWidth idiv} {nHeight mod} ifelse 
  105.       sub logPageHeight ygutter add mul add
  106.   translate
  107.  
  108.   /logPageNo logPageNo 1 add nWidth nHeight mul mod def
  109.  
  110.   xOffset yOffset translate
  111.   scaleFact dup scale
  112.   /currMatrix matrix currentmatrix def
  113.   /saveCnt 0 def
  114.   /gsaveCnt 0 def
  115.   initCS
  116.   end
  117. } def
  118.  
  119. /alldone false def
  120.  
  121. /EndPage {
  122.   2 eq
  123.   { pop false }
  124.   {
  125.     pop
  126.     PrFileDict begin
  127.     alldone
  128.     { logPageNo 1 ne nWidth nHeight mul 1 ne and }
  129.     {
  130.       drawFrame
  131.       {
  132.          initgraphics initclip
  133.          frameWidth setlinewidth newpath
  134.          1 scaleFact div dup scale
  135.          xOffset neg yOffset neg translate
  136.          0 0 moveto logPageWidth 0 rlineto
  137.          0 logPageHeight rlineto logPageWidth neg 0 rlineto
  138.          0 logPageHeight neg rlineto closepath
  139.          stroke
  140.       }
  141.       if 
  142.  
  143.       logPageNo 0 eq
  144.     }
  145.     ifelse
  146.     end
  147.   }
  148.   ifelse
  149. } def
  150.  
  151. /close {
  152.   /alldone true def showpage
  153. } def
  154.  
  155. end
  156.  
  157. /save { PrFileDict begin /saveCnt saveCnt 1 add def end save } bind def
  158. /restore { PrFileDict /saveCnt get 0 gt { restore } { PrFileDict /__restore get exec } ifelse  } bind def
  159. /gsave { PrFileDict begin /gsaveCnt gsaveCnt 1 add def end gsave } bind def
  160. /grestore { PrFileDict /gsaveCnt get 0 gt { grestore } { PrFileDict /__grestore get exec } ifelse  } bind def
  161. /initgraphics { initgraphics PrFileDict begin initCS end } bind def
  162. /initmatrix { PrFileDict begin currMatrix end setmatrix } bind def
  163.  
  164. %%EndProlog
  165.  
  166.